home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00002Series_7_2gripmt5b.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  3.1 KB  |  105 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put "MTG5: 2-3/16" & QUOTE & " long x 3/4" & QUOTE & " dia (.75)" into field "mainmounting"
  4.   puppetTransition(47, 1, 8)
  5.   set the puppet of sprite 10 to 0
  6.   if char 1 of field "Tblcaste,CA_MOD" = "2" then
  7.     if field "tblcaste,BRK_OP" contains "BRK6" then
  8.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  9.         play frame "2optiona"
  10.         abort()
  11.       end if
  12.       if field "tblwheel,TG_OP" contains "TG1" then
  13.         play frame "2optionb"
  14.         abort()
  15.       end if
  16.       if field "tblwheel,TG_OP" contains "TG2" then
  17.         play frame "2optionc"
  18.         abort()
  19.       end if
  20.       play frame "2optiond"
  21.       abort()
  22.     end if
  23.     if field "tblcaste,BRK_OP" contains "BRK4" then
  24.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  25.         play frame "2optione"
  26.         abort()
  27.       end if
  28.       if field "tblwheel,TG_OP" contains "TG1" then
  29.         play frame "2optionf"
  30.         abort()
  31.       end if
  32.       if field "tblwheel,TG_OP" contains "TG2" then
  33.         play frame "2optiong"
  34.         abort()
  35.       end if
  36.       play frame "2optionh"
  37.       abort()
  38.     end if
  39.     if field "tblcaste,BRK_OP" contains "BRK2" then
  40.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  41.         play frame "2optioni"
  42.         abort()
  43.       end if
  44.       if field "tblwheel,TG_OP" contains "TG1" then
  45.         play frame "2optionj"
  46.         abort()
  47.       end if
  48.       if field "tblwheel,TG_OP" contains "TG2" then
  49.         play frame "2optionk"
  50.         abort()
  51.       end if
  52.       play frame "2optionl"
  53.       abort()
  54.     end if
  55.     if field "tblcaste,BRK_OP" contains "BRK1" then
  56.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  57.         play frame "2optionm"
  58.         abort()
  59.       end if
  60.       if field "tblwheel,TG_OP" contains "TG1" then
  61.         play frame "2optionn"
  62.         abort()
  63.       end if
  64.       if field "tblwheel,TG_OP" contains "TG2" then
  65.         play frame "2optiono"
  66.         abort()
  67.       end if
  68.       play frame "2optionp"
  69.       abort()
  70.     end if
  71.     if field "tblcaste,OTHER_OP" contains "DC1" then
  72.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  73.         play frame "2optionq"
  74.         abort()
  75.       end if
  76.       if field "tblwheel,TG_OP" contains "TG1" then
  77.         play frame "2optionr"
  78.         abort()
  79.       end if
  80.       if field "tblwheel,TG_OP" contains "TG2" then
  81.         play frame "2options"
  82.         abort()
  83.       end if
  84.       play frame "2optiont"
  85.       abort()
  86.     end if
  87.     if not (field "tblcaste,OTHER_OP" = "DC1") then
  88.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  89.         play frame "2optionu"
  90.         abort()
  91.       end if
  92.       if field "tblwheel,TG_OP" contains "TG1" then
  93.         play frame "2optionv"
  94.         abort()
  95.       end if
  96.       if field "tblwheel,TG_OP" contains "TG2" then
  97.         play frame "2optionw"
  98.         abort()
  99.       end if
  100.       play frame "2optionx"
  101.       abort()
  102.     end if
  103.   end if
  104. end
  105.